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F1IIX. SRC 

MODULE TRUNC ( 

poeyet ( (OL 15854) « 
= 

is 


BEGIN 


' 
See eeeeeeeR RAH Hee RAH eeee He HHHKR AHHH HHA THe Kee eH e eee eeeeKeeeeeeeeeeeeeeAeee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


t* THIS SOFTWARE i. FURNISHED eee A LICENSE AND MAY BE USED AND og a 
t* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LUCENE AND WITH THE 
!* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFT WARE OR ANY OTHER 
!* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
® 
® 
7 
® 
® 
® 
® 
oo 
ie TRANSFERRED. * 
® 
* 
® 
* 
® 
& 
® 
® 
® 
* 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:: cobpokat ite, NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


NOME WN (OOD NO UNE WN SO OONOUE WN 
(=) 


RoR PoRoPoRonony 2 2 2 oo 
MMMNPNOPONOUN) 2 SS 


— 
MEUN $9 OOBNOAUE WN" OOONOUS NOG 


SSSsssssssssssssoooss 
tt tt tt tt at td 9 bs os 9 bs ds ss = ss ss 2 2 ss 4 2OOOO 
. 


ie 

: ieeeee (RARRBRBRSAASLALELSLARESERERRARARERRRREAARRRRAAE EERE RR SEE EERE R ERE SER ER EASES | 
? soe 

§ FACILITY: F11IACP Structure Level 2 

5 ABSTRACT: 

: 38 This routine truncates a file by deallocating the indicated blocks. 
iB 9484 ENVIRONMENT : 
41 0041 i STARLET operating system, including privileged system services 

$g 94 } and internal exec routines. 
4 004 : 
au 4 lee 
$? 5 
oF $ AUTHOR: Andrew C. Goldstein, CREATION DATE: 21-Mar-1977 10:41 

49 049 ; MODIFIED BY: 

31 i v03-013 coso007 Christian D. Saether 14-Aug-1984 

26 2¢ Remove reference to update_ tilesize routine. 

4 5401 v03-012 CDS0006 Christian D. Saether | 31-July-1984 

56 pee Remove local declaration of get_map_pointer Linkage. 

§ $89 i v03-011 CDS0005 Christian D. Saether 5-July-1984 
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me 


Do not call READ_HEADER with the file id argument 
when re-reading primary header at the end Spc ause 
we always have a primary_fcb now and when this 
routine is called from deaccess on a deferred 
truncate, the fid field is not filled in. 


vw 
VUE wr—OO0@ 


BRARY a RUSE ORARY 4 18,152"; 
QUIRE "SRC$:FCPDEF .B32'; 


; 1! ; 
3 1! 3 
3 1! 5 
; 1! $ 
; 1} 3 
3 1} 3 
; 1! v03-010 CDS0004 Christian D. Saether 22-Apr-1984 : 
: : Change Linkage L_TRUNC_CHECKS to L_JSB_2ARGS. ; 
; 067 1} v03-009 ¢DS0003 Christian D. Saether 30-Dec-1983 | ; 
3 9¢3 : } Use L_NORM Linkage and BIND_COMMON macro. : 
PY . | ° 
3 9 1! v03-008 CDS0002 Christian D. Saether 25<5e0-1985 : 
; te : Manually merge in code associated with STJ3097. | : 
: ig 1/ v03-007 $1J3097 Steven T. Jeffreys, 29-Apr-1983 | F 
; 7% 1: Refinement of STJ . Only do the erase if the ; 
; f te : volume or file ERASE attribute is set. | : 
: 8 0077 1: v03-006 CDS0001 Christian D. Saether 21-Apr-1983 : 
: 78 78 61! Break out initial error checks into separate routine. : 
: 4 Ben ' } Make the truncation vbn an input argument. : 
; 081 1} v03-005 $1y3072 Steven T. Jeffreys, 25-Mar-1983 | 
3 Hf O58 1! rase blocks returned to the storage map. Later this 3 
: Hi Be) : will be conditionalized. : 
: 85 0085 1: v03-004 ACG0299 Andrew C. Goldstein, 12-Oct-1982 17:21 : 
; a6 Boe : Make truncate tolerant of bad map pointer use count : 
; HH 0088 1: V03-003 ACG0296 Andrew C. Goldstein, 8-Jul-1982 21:32 : 
; 4 i494 ' Fix truncation of placed allocation pointers : 
: Ot 0091 1 v03-002 ACG0287 Andrew C. Goldstein, 14-Apr-1982 17:16 : 
: 4 993 : Check for index file in header rather than FCB : 
> 94 0094 1: v03-001 LMP0023 L. Mark Pilant, 7-Apr-1982 16:45 ; 
5 0095 1! Give a privilege violation if attempting to truncate the : 
; 38 Boas : index file (INDEXF.SYS). | . 
> 98 0098 1: v02-011 ACG35898 Andrew C. Goldstein, | 10-Mar-1981 22:15 | ; 
: +4 0100 ' Update HIBLK in the primary header : 
: 01 101 1! v02-010 ACGO170 Andrew C. Goldstein, | 7-May-1980 18:27 | ; 
: 6g § : Fix handling of map pointer use count : 
> 104 04 1! V02-009 ACG0167 __ Andrew C. Goldstein 16-Apr-1980 19:28 : 
; 05 05 ! Previous revision history moved to F11B.REV : 
: $9 Bi: : 
: 108 1 3 
: 109 1 

; 10 1 

ante } 

: 8 1 

; 6114 1 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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FORWARD ROUTINE 
TRUNCATE : L_NORM NOVALUE, ! truncate file 


HE-8G0c198¢ 93:98:93 YMcHTWBALSRERECH4A8° Ae rmunc.032:172%" co} 


1105 TRUNCATE HEADER : L_NORM NOVALUE, runcate individual file header 
1182 i TRUNE ACRECKS | La a ARGS NOVALUE ; f Jaitial truncation error checks. 


10 
ISc3ee71986 4:18:13 WML BL str82 Y40°762, onc 052, 1°28" coh 
GLOBAL ROUTINE TRUNCATE (FIB, FILEHEADER, TRNVBN) : L_NORM NOVALUE = 
i+ 
FUNCTIONAL DESCRIPTION: 
This routine truncates a file to the size indicated in the FIB by 


Coes Locating the necessary blocks. The erase flag controls whether 
the retr 


} 
| 
| 
eval pointers are erased in the header. The deallocate flag 
controls whether or not the blocks are actually returned to the | 
storage map. 


CALLING SEQUENCE: 
TRUNCATE (ARG1, ARG2, ARG3) 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

! INPUT PARAMETERS: ; 
: ARG]: address of FIB for operation 
: ARG2: address of file header 
ARGS: VBN to truncate from 

: IMPLICIT INPUTS: 

CURRENT_VCB: VCB of volume 

i 
i 
' 
i 
i 
' 
i 
i 
i 
i 
i 
i 
i- 


OUTPUT PARAMETERS: 
NONE 


ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
storage bitmap altered 
file header altered 


BEGIN 


MAP 
18 for operation 


FIB : REF BBLOCK, 
FIL e header 


i f¢ 
EHEADER : REF BBLOCK; ! f 


LINKAGE 
L_MAKE_POINTER = CALL : 
GLOBAL (PREV_POINTER = 9); 


WN SO OONAUEAN —O OCONOAUE WN 0 ODNOAUEWN "OO DNOUES WOOO 


IMPLICIT OUTPUTS: 
NONE | 
| 
| 


DNR AAR MAAN III DEES ES EE EEA 


GLOBAL REGISTER 
COUNT 6, ' count of blocks returned 

- ! LBN of map entry 
8 : REF BBLOCK, ! pointer to scan map 
: REF BBLOCK; ! pointer to build new map entry 


LBN 
MAP_POINTER 
PREV_POINTER 


LOCAL 
FCB : REF BBLOCK, ! FCB of current file header 
HEADER : REF BBLOCK, ' address of current file header 


ee i ee ee 
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oz 


5 
ge 3 


1 
| 
| 
; 75 1164 ALT_HEADER : REF BBLOCK, ! address of header copy to free blocks 
3 178 1165 NEW HEADER : REF BBLOCK, ! address of extension file oqecer 
coy 1198 TRUNC_ POINTER, ! pointer to start of truncation 
; 178 116 MAP_ERD, ' pointer to end of map area 
3 ir 1168 ! relative VBN of operation 
; 180 1192 HEADER_VBN ! value of VBN at start of this header 
: 181 1170 HEADER-SIZE, i humber of blocks mapped by header | 
. 4 ¢ 1171 EXT_FIDB : BBLOCK CFIDSC_LENGTH), ! file ID of extension header 
. % 1106 EX_ SEGNUM, ' segment number of ext header 
: He 117 REREAD ! flag to reread primary header 
3 : 5 Vee REREAD2; ! flag to update primary header 
; 189 1176 ¢ LABEL 
; 188 117 DO_TRUNCATE, !' main body of truncate processing code | 
3 19 1398 VBR_LOOP; ' main loop to scan for starting VBN | 
; 191 1180 BIND_COMMON; 
: 19 1181 
; #19 HY EXTERNAL ROUTINE 
: 194 118 PMS_START_ SUB : L_NORM, ! start subfunction metering 
3; «6195 1184 PMS-END_ SOB : LINORM, ! end subfunction metering 
3 196 1185 ILE_SIZE : LINORM, ! compute size mapped by eader 
: 197 1186 SEARTH_FCB : LINORM, i search FCB list for FCB 
; 198 1187 CHARGE QUOTA : LLNORM, : charge blocks to user's quota 
; 199 1188 DEALLOCATE_BAD : L_NORM ADDRESSING_MODE (GENERAL), 
: 200 1189 ! mark blocks bad | 
; 201 1190 MARK _DIRTY : L_NORM, ! mark buffer for write-back 
; 202 1191 CHECRSUM : LINORM ! checksum file header : 
> 203 1198 GET_MAP_POINTER : L7MAP_POINTER, ! get value of next map pointer 
> 204 119 MAKE_POINTER : LIMAKE_POINTE , ! build a new map pointer 
3 : < ' read next extension header 
05 1194 NEXT HEAD L=NORM d next extension head 
; 206 1195 CREATE BLOCK : LINORM, ' allocate a block buffer 
; 207 1196 INVALIBATE L-NORM, ' invalidate a block buffer | 
; 208 1197 T_FCB2 L_NORM, ! initialize 
3; 209 1198 WRITE HEADER L-NORM, ' write file header 
3; 210 1199 D_READ L-NORM, ' read file header 
: elt 1200 DEL _EXTFCB L-NORM, ' delete extension FCB's 
; \¢ | 91 DELETE_FILE L-NORM; ! delete remainder of file 
3 214 1 08 
3; 215 1204 ! Start metering for this subfunction. 
3 216 1205 : 
3; 27 1206 
3 18 nS t4 PMS_START_SUB (PMS_ALLOC); 
3 $9 1310 TRUNC_CHECKS (.FIB, .FILEHEADER); 
: 33 1211 ! Establish the basic pointers. Round up the starting VBN to the next cluster 
3 1 \§ ' boundary and adjust it to a zero start. 
3 4 121 ' Round down the file size. 
: 5 1214 : 
3 6 1215 
3 7 1 1g HEADER = .FILEHEADER; 
; 228 121 FCB = .PRIMARY_FCB; 
3 , ' 13 VBN = .TRNVBN = 1; | 
: 1 1220 ! Init the user's return parameters. 


16-Sep-1984 01:19: VAX=11 BLiss=32_V4.0-742 Page 6 
12-88-1382 93; 8:86 DISKSVMSMASTER:CF11X.SRCITRUNC.B32; 1 ” (2) | 
| 
FIBCFIBSL_EXVBN) = 1; 

REREAD = 0; 

! Now scan the file headers for th eeerteval pointer sontetging the starting 


e 
' VBN. If the VBN is off the end of file, report the error; if coincides, 
the operation is a noop. 


: 
; 


9 
0 
1 
§ 
4 
5 
6 
? 
8 
9 
0 
1 
§ 
4 
5 
6 
7 
8 
9 
0 
1 
g 
4 
5 


DO_TRUNCATE: 
BEGIN 


VBN_LOOP: 

EGIN 

WHILE 1 DO 
BEGIN 

MAP_POINTER = .HEADER + .HEADERCFH2$B_MPOFFSETJ*2; 

MAP"END = .MAP_POINTER + .HEADERCFH2$B_MAP_INUSEJ*2; 

PREV_POINTER = .MAP_POINTER; 

HEADER_VBN = .VBN; 

UNTIL .MAP_POINTER GEQA .MAP_END DO 
BEGI 


GET_MAP_ POINTER (); | 
IF [COUNT GEQU .VBN THEN LEAVE VBN_LOOP; 


VBN’= .VBN = .COUNT; 
FIBCE1BSL_EXVAN] = .FIBCFIBSL_EXVBN] + . COUNT; 
THEN PREV_POINTER = .MAP_POINTER; | 


© ah al ol al al ak vabealeal val alvaleal*al al tal ae at et et oe oe oe oP 


! We have scanned through an entire header. Chain to the next header if it 
exists. If we run out of headers, then the truncate point is beyond end 
1 
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DOD NANE WN SO ODNA NE WN 0 OD NAN EWN 0 ODNOU EW OO OONOU SW 


PIPPIN IMOPIPONINPGNINININININYNIPININININININININININININININININININPYNININININININPONoNonononofrorfnofnofopopororfnornyd 
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66 

67 ! of file. 

65 

70 NEW_HEADER = NEXT_HEADER (.HEADER, .FCB); 
71 IF NEW HEADER EQC 0 THEN EXITLOOP; 
$f¢ REREAD = 1; 

6 HEADER = .NEW_HEADER; 

75 IF .FCB NEQ 0 

76 THEN FCB = .FCBCFCBSL_EXFCB); 

AA END; ! end of header scan loop 

79 IF .VBN NEQ 0 , 

80 THEN ERR_EXIT (SS$_ENDOFFILE) é 
it 4 ND; ! end of VBN_LOOP 
$85 7? ! We are now pointing at the retrieval pointer in which the truncation starts. 

84 7? ! VBN contains the number of blocks to retain in that pointer. We must now 

5 74 !' round it down or up to the next cluster boungary. depending on whether or 
} not the blocks are to be marked bad, respectively. 
88 7 ; 


a 
— 


7 
ge 4 
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| 
| 
+ (IF NOT .FIB Fipsy MARKBAD] 

THEN geURREN -VCBCUCBSW_CLUSTER] = 1 
| 
| 
| 


) 
/ C RENT_VCBCVCBSW FLUSTER) * ,CURRENT_VCBLVCBSW_CLUSTER); 
tusti) = .uSER STATUSC1) + .VBN; 

L_EXVBN] = .FIBCFIBSL_EXVBN) + VEN; 

VBR = .HEADER_VBN + .USER_STATUSL1J; 


! See if rounding up is causing us to keep the entire map pointer. If so, 

! bump to the next pointer. If that takes us to the end of the map area of 
! @ header with no extension, return with no action. (This case is common 

enough to be worth checking for.) 


PEW COONOUE WOO 


BEGIN 
= 


MAP _END 

IDNUA) EQL 0 
AND .HEADER IDRVN] EQL 0 
Ten LEAVE 


4 
4 
4 
& 
4 
4 
4 be ; 
END; 
! If we are turning blocks over to the bad block file, check that 


— ts os os st 


(1) the potater given is the Last pointer in the header, 

(2) the header is the last one for the file, and (3) that the quantity 
being deallocated is exactly one cluster, this being the only condition 
we can correctly handle. 


If .FIBCFIBSV_MARKBAD) 
THEN 


F .MAP POINTER NEQ .MAP_EN 
OR Q ipwun} 


-COUNT = . NE 
OR .HEADER rligbu Ex. 1DN 
OR .HEADERLFH2SW gx FIDSEQ) NEQ 
THEN ERR_EXIT (SS$_BADPARAM) ; 

: Do the real truncate. Set up cleanup status and get control blocks in shape. 


| 
| 
| 
= _,MAP POINTER; | 
Y 
F 
| 
} 
| 
| 
| 
| 
| 
0 
NT_VCBLVCB$W_CLUSTERJ | 
NEQ | 


CLEANUP _FLAGSE 
CLEANUP FLAGS 
PRIMARY-FCB CFCBSC 


' Update the HIBLK 
size, if this is 


CLF_F 
CLF J } z 1; 
cast_ = .FIBCFIBSL_EXVBN] - 1; 

the record attributes to reflect the new file 
ary header.. 


I 
N 
F 
fiel 
t 


— ™ 
23> ™ 


r 


IF NOT .REREAD 
THEN BBLOCK CHEADERCFH2$W_RECATTRI, FATSL_HIBLK) = ROT (.FIBCFIBSL_EXVBNJ-1, 16); 
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! Make a copy of the file header with which to free the blocks. In the original, 
! zero out } e map ppcarers being freed and write the header back before 

' dealloca ng the blocks, so that we do not get a file header mapping free 

! blocks the system crashes while this is going on. 

} blocks i h hile this i i 


ALT_HEADER = CREATE BLOCK (-1, 1, HEADER_TYPE); 

INYRLIDATE (ALT HEADER) ; 

CHSMOVE (512, .HEADER, .ALT_HEADER); 

TRUNC_POINTER = .PREV_POINTER = .HEADER + .ALT_HEADER; 


HEADERCFH2$B MAP_INUSE] = (.PREV_POINTER = .HEADER) / 2 = .HEADERCFH2$B_MPOFF SETI; 
THEN 


V_POINTER; 


.LBN ; HEADER. 
PREV_POINTERLFA2$V_FORMAT 
PREV_POINTERLFR2SU_WORD 
E 
E 


GET" MAP_PO 
MAKE _POINT 


me 2 

Daz 
—n 

~m 
me 


3,fat FM2$C_PLACEMENT 


0)) 
END; } 
MAP_END = .HEADER + .HEADERCFH2$8_ACOFFSETJ®2; 
IF [MAP_END = ,PREV_POINTER GIR 0 
THEN CHSFILL (0, .MAP_END = .PREV_POINTER, .PREV_POINTER); | 


EX_SEGNUM = .HEADERCFH2$W_SEG_NUM) + 1; 

CHSMOVE (FIDSC_LENGTH, gg EF ExT FID) EXT FID); 
CHSFILL (0, FIDSC_LENGTH, HEADERCFH2$W_EXT_FiDJ); 
CHECKSUM (.HEADERJ; 

WRITE_HEADER (); 


If .FCB NEQ 0 AND .FCB NEQ .PRIMARY_FCB 
THEN KERNEL_CALL (INIT_FCB2, .FCB, .HEADER); 


SOOWONAUE AN OOO VOU FW" OOOVOu 


PAA NIA BEB PEE EE 


| 

69 
70 ! Compute the number of blocks oo deallocated and credit them to the 
71 ! file owner. We compute this by taking the total space mapped by the header, | 
4 less the number of blocks passed over in the scan. 
74 | 
75 IF NOT .CLEANUP_FLAGSCCLF _NOTCHARGED] 
7 THEN 
7 BEGIN 
7 HEADER_SIZE = FILE SATE ( ALT_HEADER); 
7 CHARGE-QUOTA (.HEADERCFH2$L FILEOWNER, - (.HEADER_SIZE = .HEADER_VBN), 
$0 i BITLIST (QUOTA_CHARGE)); 

° 


' Now we can free the blocks being truncated off. They are turned over 
either to the storage map, or to the bad block file. 

If .FIBCFIBSV_MARKBAD) 

DEALLOCATE_BAD (.FIB, .ALT_HEADER, .TRUNC_POINTER, .VBN) 

TRUNCATE _HEADER (.FIB, .ALT_HEADER, .TRUNC_POINTER, .VBN); 


ee ee ee ee ee ee ee me ee ee ee ee ee ce ae el ee eee ee ce ce ee ee ee ce ee ed ee ee ee 
aon AAD 
Se wad-ueko 
AAA AAA ANAS BB BAIA IAAI AIA AAA AAAI UU BB BAI IAAI AAAI 
m= 
aa 
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42 
RC 


; 4603 139 

3; 6 1 38 REREAD? = REREAD; 

; 4605 1394 3 IF .Ex ~fIDEE 1D S¥_NuM] NEQ 0 

3; 4 1395 3 OR .EXT-FIDCFIDSW-RVNJ NEQ 

3; & 1 38 THEN 

; 4 1397 4 BEGIN 

3; 6 1 38 4 REREAD = 1: 

: 410 1 4 HEADER = NEXT_HEADER (0, .FCB, EXT_FID, .EX_SEGNUM); | 
> 4611 1400 4 KERNEL_CALL (BEL EXTFCB, .FCBS; 

; 4g 1401 DELETE-FILE (.FIB, .HEADER); 
3; 41 14 ; END; 

3 414 1403 
; $12 \ehe END; ! end of block DO_TRUNCATE 
3 t19 1o08 : If this was a truncate of a multi-header file, reread the Ae header | 
3 ret 140 ! and update the HIBLK field in the record attributes to reflect the new file 
; «(41 1408 ! size. 

; 420 1409 2! 
: 621 1410 

: 4 ‘ 1411 2 IF .REREAD 
i 438 141 THEN HEADER = READ_HEADER (0, .PRIMARY_FCB); 
3 | 
>; 425 1414 IF .REREAD2 
3; 6 g 1415 2 THEN | 
3; 4 1416 BEGIN 

; 428 141 BBLOCK CHEADERC[FH2$W_RECATTR], FATSL_HIBLK] = ROT (.FIBCFIBSL_EXVBNJ-1, 16); 
3; 429 1418 MARK_DIRTY (.HEADER); 

; 430 1419 END; 
3; 431 1420 
3 $36 1421 

; 43 14 ; 2 ! Stop metering of this subfunction 

3 434 14 
: 635 1424 

; 436 1425 2 PMS_END_SUB (); | 
3 437 1426 : 

; 438 1427 1 END; ! end of routine TRUNCATE 


LE TRUNC 

NT \vV04-000\ 

RN PMS_START_SUB, PMS_END_SUB 

TRN FILE_SIZE> SEARCH_FCB 

TRN CHARGE QUOTA, DEACLOCATE_BAD 
MARK_DIRTY, CHECKSUM 

TRN GET MAP POINTER 

TRN MAKE_POINTER, NEXT_HEADER 

TRN CREATE BLOCK INVACIDATE 

TRN INIT_FCB2, WRITE_HEADER 

TRN READ“HEADER, DEL"EXTFCB 

TRN DELETE_FILE 


-PSECT S$CODES,NOWRT,2 | 
sENTRY TRUNCATE, Save R2,R3,R4,R5,R6,R7,RB,R9O,RI1 ; 1107 | 
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12-808-1 38 93:43:38 DISKSVMSMASTER:CF11X.SRCJTRUNC.B32;1 9 02) 
8 OD PUSHL #8 : 1207) : 
00006 cf 1 FB a8 CALLS #1 PMS _START_SUB : aor : 
0 04 AC : 1 MOVa Ib, R + 1209) 3 
0000v 14 BSBW §TRUNC_CHECKS : | ; 
10 AE 08 AC D 17 MOVL  FILEHEADER, HEADER +1 16 ; 
g¢ AE AA D iC MOVL. 8(BASE), > 1217) : 
. oe 01 ¢ 1 SUBL3. #1, TRNVBN, VBN : 1 18 ; 
g 04 AC 00 00007 MOVL F168, RO + 1223) ; 
1¢ =A 01 00 000eB8 MOVL #1, 28(RO) : | ; 
04 AE D4 0000F CLRL_ REREAD ; 1385, ; 
10 A 01 ¢1 000 : 1$: ADDL3 #1, HEADER, R1 t 1239) : 
3 61 OA 99 MOVZBL (RI), R : ; 
10 BESO 3€ O003A MOVAW QHEADER RO], MAP_POINTER : | ; 
10 A 3A OCT 900 F ADDL3 #58, HEADER, R1 + 1240 ; 
5 61 9A 00044 MOVZBL (R15, R : ; 
58 6840 E 00047 MOVAW (MAP POINTER)CROJ, MAP_END : ; 
59 58 DO 00048 MOVL MAP_POINTER, PREV_POINTER : 1241 3 
6E 08 AE DO 0004 MOVL § VBN7> HEADER_VBN + 1242 ; 
58 58 D1 00052 2$: CMPL § MAP_POINTER> MAP_END + 1264 : 
iE 1 0005 BGEQU ; : 
00006 3 90097 BSBW §GET_MAP_POINTER + 1246 ; 
08 AE 56 D1 O005A CMPL COUNT, JBN : 1247 3 
47 1€ 0005€ BGE GY : ; 
08 AE 56 C2 00060 SUBL2 COUNT, VBN + 1248 ; 
50 04 AC DO 00064 MOVL F IB, + 1249 : 
1c =A0 56 CO 00068 ADDL2 COUNT, 28(RO) : ; 
56 D3 0006C TSTL COUNT : 1250 ; 
Ee 13 0006E BEQL = 2$ : ; 
59 8 DO 90070 MOVL § MAP_POINTER, PREV_POINTER + 1251 ; 
dD 11 0007 BRB 2$ + 1244 ; 
OC AE DD 00075 3s: PUSHL : 1259 ; 
14 AE DD 00078 PUSHL HEADER : : 
00006 CF 02 FB 0007B CALLS #2, NEXT_HEADER ; : 
53 5 b0 00080 MOVL RO, NEW_READER ere F 
18 13 0008 BEQL 4$ : 1260 ; 
04 AE 01 pd 00085 MOVL #1, REREAD > 1261 ; 
10 AE 53 00 00089 MOVL § NEW_HEADER, HEADER > 1262 : 
Oc AE D3 008D TSTL FCB + 1264 ; 
AO 13 00090 BEQL =s«s1$ ; ; 
OC AE oc Ci 009¢ ADDL3 #12, FCB, RO > 1265 : 
OC AE 60 DO 0009 MOVL (ROS, FCB ; : 
95 11 00098 BRB 1$ : 1237 ; 
08 AE d3 0090 4$: TSTL -VBN + 1268 : 
0 1 0 AQ BEQL.) «=séS$ ; : 
0870 8F BF A CHMU #2160 + 1269 3 
04 00 ag RET ; ; 
04 a2 08 AE CE OO0A7 5$: MNEGL BN, 4(R2) : 1278 ; 
5 04 aC DO OOOAC MOVL FB. RO : 1280 F 
17, AO 02 € 9080 BBS #2, 23(RO), 6$ : : 
50 98 AA p 008 OVL -104(BASE). RO + 1281 F 
51 3c A ¢ 0089 MOVZWL 60(RO), R1 ; ; 
1 07 0008D ECL ~~ R1 ; : 
; 11 000BF BRB 7$ ; : 
D4 C1 $$: CLRL R1 3 1280 | : 
51 08 AE C9 C3 $: ADDL2 BN, R1 ; ; 
20 98 AA p 9 C MOVL -104(BASE), RO > 1284, : 
5 3c)6=— As: 3C.:«000CB MOVZWL 60(RO), R3 ; : 
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TRUN 1h-Se -1984 01:19: VAX=11 Bliss-32 V4.0-742 Page 12 
Vor 500 12-808-138 93:43:88 DISKSVMSMASTER:CF11X.SRCJTRUNC.B32;1 . (2). 
61 50 62 8 TAs SUBB3 «= (R2), -RO, (R1) ; 
08 AF D5 001A TSTL VBN t 1347) 
é 1 VAC BEQL 14$ : 
58 9 1AE MOVL § PREV_POINTER, MAP_POINTER + 1350. 
00006 18 BSBW _GET_MAP_POINTER : 1351) 
CO. sé 01 a 18% Bits 1(PREV_POINTER), #192 ; 1353) 
7E 9 3c O185 MOVZWL (PREV_POINTER), -(SP) + 1356) 
2 11 0018 BRB 13$ 3 
E D4 gic 128 CLR -(SP) + 1353) 
14 AE DD 001C2 13$ PUSHL HEADER ; 1352, 
57 DD gic PUSHL LBN : | 
146 AE DD OO1C PUSHL VBN : 
00006 CF 04 FB OOICA CALLS #4, MAKE_POINTER : | 
51 10 AE 02 C1 OO1CF 148:  ADDL3 #2. HEADER, R1 + 1357) 
5 61 9A 00104 MOVZBL (Ri), : | 
58 10 BE4O 3 00107 MOVAW @HEADERCROJ, MAP_END ; 
59 58 01 0010¢ CMPL §/MAP_END, PREV_POINTER ; 1358 | 
09 15 OO1DF BLEG ; 
5B 59 ¢2 001E1 SUBL2 PREV_POINTER, R11 + 1359) 
ao 00 6E 09 2c O01Es MOVC #0, TSP), #0, R11, (PREV_POINTER) : | 
50 10 AE 04 C1 OO1EA 15$:  ADDL3 #4, HEADER, RO + 1361) 
56 60 3C OO1EF MOVZwL (RO), EX_SEGNUM : 
56 D6 001F2 INCL. _EX_SEGN : 
57 10 A OE C1 001F4 ADDL3 #1%, HEADER, R7 + 1362 
1¢ aE ‘ 06 28 001F9 MOVC3 #6, (R7), EXT FID : | 
5 10 AE O& C1 Ooire ADDL3 #14, HEADER + 1363) 
06 00 6E 09 2c 90203 MOVCS #0, (SP), #0, #6, (R7) : 
10 AE DD 00209 PUSHL HEADE > 1364 
00006 CF 01 FB 0020C CALLS #1, CHECKSUM : 
00006 CF 00 FB 00211 CALLS #0, WRITE_HEADER + 1365 
0c AE D5 00216 TSTL FCB + 1367 
12 13 00219 BEQL 16$ ; 
08 AA OC AE 01 00218 CMPL FCB, 8(BASE) : 
0B 13 00220 BEQL 16$ ; 
10 AE DD 00222 PUSHL HEADER : 1368 
10 AE DD 00225 PUSHL FCB F 
00006 CF 0 FB 0228 CALLS ae INIT_FCB2 F 
1B 6A 1D £0 0022D 16$: BBS #29, (BASE), 17% : 1375 
16 AE DD 00231 PUSHL ALT HEADER : 1378 
00006 CF 01 FB 00 CALLS #1, FILE_SIZE : 
2 Dp 0 9 PUSHL #2 : 1380, 
7E 04 AE C : SUBL3 HEADER SIZE, HEADER_VBN, -(SP) : 1379, 
52 18 AE C C1 0024 ADDL3 #60, HEADER, R : 
¢ DD 00 $3 PUSHL (R Z | 
00006 CF FB 024 CALLS #3, CHARGE_QUOTA : | 
0 06 ac D 0 4C 17$:  MOVL F18. RO ; 1387 
14 17, AO 02 €1 BBC #2, 23(RO), 18% : 
08 AE 0D 00 PUSHL VBN : 1389 | 
1C AE DD PUSHL TRUNC_POINTER : | 
1¢ Ar DD B PUSHL ALT_HEADER F | 
H DOD PUSHL 3 
000000006 00 4 Fe 6 CALLS #4, DEALLOCATE_BAD ; 
10 1 4 BRB 19§ ; | 
08 AE DD 00269 18$:  PUSHL VBN : 1391. 


H 11 


; Routine Size: 742 bytes, Routine Base: S$CODE$S + 0000 


TRUN 1¢- Sep-1984 VAX-11 BL Lis $-32 V4.0-742 e 13. 
yorn600 14- attr 9}: 3: § DISKSVMSMASTER:CF11X.SRCJTRUNC.B32;1 _ eat 

1¢ AE 0D 0026C PUSHL TRUNC_POINTER ; : 

1¢ AF DD gf PUSHL ALTA HEADER ; : 

0D PUSHL R : | ‘ 

0000v gf 4 F 7 CALLS #4 TRUNCATE E HEADER : | ; 

2 06 AE D 79.19%: = MOVL REREAD : 1393) : 

1c AE 8 70 TSTW ri6 * ; 1394 : 

0 BNEQ bs” : | : 

20 AE 8 TSTW BXT_FID+4 + 1395. : 

A BEQL 1$ : | : 

04 AE 1 D 20$:  MOVL #1, REREAD : 1398 : 

6 0D PUSHL EX. SEGNUM : 1399. : 

20 AE OF PUSHAB EXT_F : | : 

4 AE OD PUSHL : : 

7E D4 0029 CLRL. = (SP) : | : 

00006 CF 4 FB 0099 CALLS #4, NEXT_HEADER ; ; 

AE 0D 9A MOVL RO, HEADER ; : 

OC AE DD F PUSHL + 1400 : 

00006 CF 01 FB 0 A CALLS “i. DEL_EXTFCB : ; 

10 AE DD Ag PUSHL HEADER + 1401 ; 

04 AC DD 002A PUSHL Fie : ; 

00006 cr 02 FB O002AC CALLS , fedor 2s FILE : ; 

E 06 AE CE 0 Bi 21$:  BLBC  RER $ + 1411 ; 

08 AA DD 00985 PUSHL : 1412 | : 

7E 04 00288 CLAL : 3 

00006 CF 9 FB O2BA CALLS a, “heap HEADER : ; 

10 AE DO 002BF MOVL : ; 

1A 52 «£9 90 C3 22$:  BLBC REREAD. : B3s + 1414 : 

50 04 AC 09 02C6 MOVL a R : 1417 : 

50 1¢ = AO 01 ¢ 00 CA suBL *28(RO0), RO : : 

51 10 AE 18 Ci OO2CF ADDL #eh, HEADER, R1 : : 

61 50 10 9C 00204 ROTL 6; RO, (RI) ; : 

10 AE 0D 00208 PUSHL HER bER : 1418 ; 

00006 CF 01 FB 00 DB CALLS MARK_DIRTY : ; 

0000G CF 00 FB OO2EO 238: CALLS 50° PMS_END_SUB 3 1425 3 

04 002€5 RET : 1427 ; 


ee 


" 
1$-Se0-1984 9b48id§ | PeeSumBhaStenccy tixcseeateunc.e32:1°°%° chs 


| 
} 
3 rr 1¢ } GLOBAL ROUTINE TRUNCATE_HEADER (FIB, HEADER, POINTER, LAST_COUNT) : L_NORM NOVALUE = : 
a. RR iT ea) 
; 44 14 5 i FUNCTIONAL DESCRIPTION: | ; 
: 66 1434 1! This routine returns the indicated retrieval pointers in the given | : 
; 44 1435 1! file header to the storage map. ; 
2. nae oe! 
: 450 1438 i CALLING SEQUENCE: : 
; a8 1tip : ; TRUNCATE_HEADER (ARG1, ARG2, ARG3, ARG4) : 
: 4 g 1441 1 | INPUT PARAMETERS: ; 
: 6546 1e66 1! ARG1: address of FIB of operation ; 
; 455 1445 1! ARG2: address of file header 3 
: $28 1444 1! ARGS: address of first retrieval pointer to process, if present ; 
3 ret re ; ARGS: new count field of first pointer, if present : 
: 459 ioe? 1 | IMPLICIT INPUTS: ; 
oo BE ee : 
: 46 1450 1 | OUTPUT PARAMETERS: ; 
Sp Bt eee, : 
> 665 1288 1 | IMPLICIT OUTPUTS: : 
: 288 1288 1 i NONE | 
: 468 1456 1 | ROUTINE VALUE: | : 
a2 i = al 
: 471 1459 1 | SIDE EFFECTS: ; 
3; 47 1460 1! file header altered, storage map altered : 
3; 47 1461 1! ; 
3 476 1008 1 !-- é 
; 475 1463 1 3 
; «47 1464 BEGIN : 
oh 1S baw : 
: 479 1667 FIB : REF BBLOCK, |! user FIB : 
3 re 4] 1668 HEADER : REF BBLOCK; ! file header : 
> 48 1290 GLOBAL REGISTER : 
; 48 1471 COUNT = 6, ' count of blocks returned 3 
; 484 1076 LBN = 7, ' LBN of map entry 3 
; re} 1677 MAP_POINTER = 8 : REF BBLOCK; ! pointer to scan map : 
; rt, 1475 2 LOCAL 3 
3 $38 1078 MAP_END; ! address of end of map area : 
: 490 1478 2 BIND_ COMMON; | : 
: 49 1480 2 EXTERNAL ROUTINE : 
; 49 1481 GET _MAP_POINTER : L_MAP_POINTER, ! get value of next map entry : 
> 494 14 ; RETORN_BLOCKS : L-NORM ADDRESSING MODE (GENERAL); ; 
; <4 eS ! return blocks to storage map : 


yb-bep-1964 01:19:12 VAKIY BlisecS2 A-O-742 Page 15. 


: 


LOCAL 
ERASE _FLAG; 


! Determine if blocks being returned should be erased. Erase them if 
either the volume or file erase attribute is set. 


ERA ' Assume no erase necessary 
iF SE ORRENT rushtvcasy eGRASE i Check the volume attribute 
OR *HEADERLFH $V_ERASE ' Check the file attribute Tn the header 
EL SEERASEAFLAG = 1 
IF .PRIMARY_FCB NEQ 0 ' Check the file attribute in the FCB 
IF_.PRIMARY_F CBCFCBSV_ERASE) 


ERASE _FLAG = 1; 


woovovon 
VUlwr— 


' 
i Establish pointers into the file header. If explicit args are supplied, use 
them; else default to releasing the entire file header. 


MAP_POINTER = .HEADER + .HEADERCFH2$B_MPOFFSETJ®#2; 
MAP_END = .MAP_POINTER + .HEADERCFH2$B6_MAP_ INUSEJ#2; 


IF ACTUALCOUNT GEQ 4 
THEN 


99 Sy 
POINTER = .POINTER; 
If LAST COUNT NEQ 0 


BEGIN 
GET MAP_POINTER ( 
ETORN BLOCKS ( LBs T_COUNT, .COUNT=.LAST_COUNT, .ERASE_FLAG); 
FIBtF 16S. EXS2) = PIBSL _EXSZ] + .COUNT = .LAST_COUNT; 
END; 


: Now scan the map area, cleaning out pointers and releasing blocks. 


PRMD 3 3 3 OO 


RPI AAHIMIPPPIPINPINI HE & H&E AAAI PPINIPYPPINPIPIPIPIPIPONINPIPIPIPIPIPIPIPIPINPIPIPININN 


Be Se Ge Ge Se Be Oe Be Se Se Be Fe Se Se Ge Be Se Se Se Ge Ge Ge Se Se Se Se OH Se He Se Se Se Se Oe Se Oe Se OH Se Oe Se Se Se SH Se Se BH Se Se Se ae 
. rorororor ae ened 
me a a at at a kt a ns a a a = a a a 9 a a ss 


PUPP DV DPV PVDVPVPUDVDV DVI SIUDUSPUDVSIVDVSIVSIVSUSVUSV IIIS SITS SUSIUSVSISISIS ISIS SISOS SIS 


0 RQ; 
1 ui Blocks {.LBN COUNT, .ERASE_FLAG); 
: rip FIBSL mitt = .FIBCFIBSL_EXSZ) * .COUNT; 
4 
5 END; ! end of routine TRUNCATE_HEADER 
.EXTRN RETURN_BLOCKS 
01DC 00000 -ENTRY TRUNCATE_HEADER, Save R2,R3,R4,R6,R7,R8 : 1428 


| 
mr en POINTER GEQA .MAP_END DO | 
} 
| 
| 
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GLOBAL ROUTINE TRUNC_CHECKS (FIB, HEADER) : L_JSB_2ARGS NOVALUE = 


—wW 
me 


BEGIN 

FIB : REF BBLOCK, 

HEADER : REF BBLOCK; 
BIND_COMMON; 

' The block count must be zero (default). 


| 
| 
i If the operation calls for the blocks to be turned over to the bad block 
; p T8he. the caller must be system. 


PUPP SVS SVS 
PRAAAA SEMANA 


IF .FIBCFIBSV_MARKBAD) 
AND NOT .CLEANUP FLAGSECLE. -SYSPRV] 
THEN ERR. EXIT (SS$_NOPRIV 


Check for the index file INDEXF.SYS 


-HEADERCFH2$W_FID_NUM) EQL FIDSC_INDEXF 

HEADER 4, Su “FID-SEQ) EQL FIDSC_INDEXF 
D .HEADER B FID pha) EQL 0 

ERR ait wit NOPRIV); 


IF .FIBCFIBSL_EXSZ] NEQ 0 THEN ERR_EXIT (SS$_BADPARAM) ; 
Init the user's return parameters. 


WR" SO OODNOULSWN OOM VS AFEN IS Seer 


C809 C808 NINN NI NINN NNO OO 


FIBCFIBSL_EXSZ) = 0; 
END; 


aa ak at a at st St 2 = SS 2 SS SS SS SS SS Ss SS Ss SS YS SY SY SS 


= POPININININININININININININININPIPINININPININYIPIPIPIPINIPINPINIPY 2 SS SS 
—p pe 
za2zan = 
moo 
2 


Pe Se Se Se Se Se Se FH Se Se Oe Oe Be Oe Ge Oe Oe Oe Se SH Se Oe oe Be HHH Oe Se Oe Oe Oe Se Oe Oe Oe Oe Oe ee ee 
PVPVPV DV LVDVSIVPUSVSVSUSU SSIS SII IS 


SL ae 


04 17, a0 02 €1 00000 TRUNC ~CHECKS:: 
BBC #2, 23(FIB), 1$ : 1556 
11 01 AA €9 0000 BLBC  1(BASE), 2$ : 1557 
01 08 Al 61 00903 1$: CMPW BCHEADER), | > 1563 
OE 12 0000D BNEQ $ : 
01 OA Al 61 OOOOF CMPW 1OC(HEADER), #1 3 1564 
08 if 0013 BNEQ 3$ ; | 
0D Al 9 001 TSTB 13( HEADER) ; 1565 
3 12 0018 BNEQ 86 3$ : 
4 Br 1A 28: CHMU #36 : 1566) 
5 0001C RSB : 
18 OA D3 O10 3$ TSTL  24(F 1B) : 1568 | 
03 13 00020 BEQL 4$ : 


M11 


14 Br 69 ? CHMU #20 

5 RSB 

18 Ad Be 5 4$: CLRL 24(F 1B) 
5 00028 RSB 

; Routine Size: 41 bytes, Routine Base: S$CODES + 036F 


; 589 1376 

; 590 157 ND 

; 591 1578 0 ELUDOM 

3 PSECT SUMMARY 

; Name Bytes Attributes 

; SCODES 920 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 

a ee ee ee Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBILIB.L32;1 18619 49 0 1000 00:01.9 

: COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$: TRUNC/OBJ=OBJ$:TRUNC MSRC$: TRUNC/UPDATE=(ENH$: TRUNC) 
; Size: 920 code + 0 data bytes 

; Run Time: 43.4 

; Elapsed Time: 1:32. 


; ,oneneece-wres 53930 
; 353 pages 


> Lines/CPU Min: 
; conetlation: Complete 


vos" 1e8ep-1986 92:40:55 DESkSVMSMASTERSCFTAX.SRCITRUNC.832; 1" 


P 


“ ENT CORPORATION 


0173 AH: BII3A-SE AND PROPRIETARY 
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